home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 4 / BBS in a Box - Macintosh - Volume IV (January 1992) (BBS in a Box).iso / Files / Game / C / CORE! 1.1.CPT / Core! 1.1 / Battle Programs / Jon's Fighters / rat < prev   
Encoding:
Text File  |  1989-07-18  |  866 b   |  42 lines  |  [TEXT/MARS]
  1. ;
  2. ; experimental vampiric rat program
  3. ;
  4. ;
  5. init      jmp loop,0
  6. blank1    dat 0,0
  7. blank2    dat 0,0
  8. target    dat 0,4103
  9. source    dat 0,fang
  10.           mov #-1, target
  11.           sub #4, dest
  12.           jmp reset,0
  13. dest      dat 0,2025
  14. blank3    dat 0,0
  15. blank4    dat 0,0
  16. loop      mov @source, <dest
  17.           djn bomb, source
  18.           spl @dest,0
  19. reset     mov #28, source
  20.           sub #276, dest
  21.           jmp 3,0
  22. blank5    dat 0,0
  23. blank6    dat 0,0
  24. bomb      mov #0, @target
  25.           sub target, @target
  26.           add #24, @target
  27.           mov fang, <target
  28.           sub #7, target
  29.           jmp loop,0
  30. blank7    dat 0,0
  31. blank8    dat 0,0
  32. trap      mov #-32, ttarg
  33.           mov #-7, purge
  34. tloop     mov dest, <ttarg
  35.           spl @purge,0
  36.           jmp @purge,0
  37. fang      spl @1,0
  38. blank9    dat 0,0
  39. blank10   dat 0,0
  40. ttarg     dat 0,target
  41. purge     dat 0,-7
  42.